   1 NT=0
   5 clear ;print "CAMEL
 335 gosub 2000
 340 if C>199goto 1210
 350 Z=Z-1;if Z=1print "WARNING GET A DRINK
 360 if Z<0goto 1630
 370 P=P+1;I=rnd (10)+3;if Q>0goto 940
 400 if P<4goto 470
 410 B=B+I;if B<Cgoto 460
 430 print "PYGMIES ATE YOU";goto 1560
 460 print "PYGMIES ARE ",#3,C-B," MILES BACK
 470 print "HAVE TRAVELED ",#3,C," MILES
 480 print "WHAT IS YOUR COMMAND?";Y=KP;clear 
 500 if Y=49goto 830
 501 if Y=50goto 610
 503 if Y=51goto 680
 504 if Y=52goto 760
 505 if Y=53goto 790
 550 T=rnd (10);if T#1goto 1410
 570 print "HELP HAS COME";S=3;Z=4;goto 340
 610 F=F+1;if F>7goto 1190
 630 gosub 880
 640 E=rnd (10);C=C+E;print "YOUR CAMEL LIKES THIS PACE";goto 340
 680 F=F+3;if F>7goto 1190
 700 gosub 880
 710 E=rnd (10)mul 2;C=C+E;print "YOU ARE REALLY MOVING";goto 340
 760 print "YOUR CAMEL THANKS YOU";F=0;goto 350
 790 print "CAMEL HAS",#2,7-F," DAYS LEFT
 800 print "YOU HAVE",#2,S," DRINKS LEFT
 810 print "CAN GO",#2,Z," COMMANDS WITHOUT A DRINK OF WATER";goto 460
 830 S=S-1;if S<1goto 1200
 850 print "NEED AN OASIS";Z=4;goto 480
 880 A=rnd (100);if A>5goto 1120
 900 print "YOU HAVE BEEN KIDNAPED,THESHEIK WILL PAY BUT WATCH  FOR PYGMIES
 930 print ;print "YOU HAVE NEW SUB-COMMANDS:
 940 print "#7 ATTEMPT ESCAPE";print "#8 WAIT FOR PAYMENT
 950 print ;print "SUB-COMMAND?";X=KP;clear 
 980 if X=56goto 1060
 990 E=rnd (10);if E<5goto 1040
1010 print "YOU ESCAPED";Q=0;goto 340
1040 print "STABBED BY A BERBER";goto 1410
1060 E=rnd (100);if E>24goto 1100
1090 print "RANSOM IS PAID";Q=0;goto 340
1100 print "KEEP WAITING!";Q=2;goto 340
1120 A=rnd (10);if A>2goto 1240
1140 print "AN OASIS";print "FULL CANTEEN&RESTED CAMEL";Z=4;F=0;S=6;goto 340
1190 print "YOUR CAMEL DIED";goto 1410
1200 goto 1410
1210 print "YOU WIN";goto 1560
1240 E=rnd (100);if E>5goto 1350
1260 print "SANDSTORM GOOD-LUCK";G=rnd (10);H=rnd (10);if H<5goto 1320
1300 C=C+G;goto 1330
1320 C=C-G
1330 print "NEW POSITION IS",#4,C," MILES
1350 E=rnd (100);if E>5return 
1370 B=B+1;print "YOUR CAMEL HURT HIS HUMP  LUCKY,THE PYGMIES WERE RESTING";goto 340
1410 U=rnd (10);clear ;print "YOU DIED IN THE DESERT";if U>1goto 1490
1440 print "THE CAMEL WON'T BE AT THE FUNERAL";goto 1560
1460 if U>3goto 1490
1470 print "BODY WAS EATEN
1480 goto 1560
1490 if U>5goto 1520
1500 print "YOUR SKULL IS AN ASHTRAY
1510 goto 1560
1520 if U>7goto 1550
1530 print "YOU IDIOT
1540 goto 1560
1550 print "YOU TURKEY
1560 goto 3000
1630 print "NO WATER
1640 goto 1410
2000 Z=4;S=6;C=0;B=0
2010 Q=0;F=0;P=0;return 
3000 print "END
:return ;run 